home *** CD-ROM | disk | FTP | other *** search
/ Clinical Endocrinology / Clinical Endocrinology.iso / pc / 00000000 / search.dir / 00018_Script_18 < prev    next >
Text File  |  1995-11-17  |  492b  |  23 lines
  1. on switchFields
  2.   
  3.   if the hilite of cast 7 = true then
  4.     put the text of field "Hierarchic Field" into field "Display Field"
  5.   else
  6.     put the text of field "Alphabetic Field" into field "Display Field"
  7.   end if
  8.   
  9.   
  10. end switchFields
  11. -----------------------------------------------------------
  12. on closeSearch
  13.   
  14.   global hardDisk
  15.   
  16.   put the pathName & the movieName into childWindow
  17.   
  18.   tell the stage
  19.     close window childWindow
  20.   end tell
  21.   
  22. end closeSearch
  23.